home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / WHILE DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  259b  |  11 lines
  1. 10 <UNKNOWN TOKEN>
  2. 15  SPEED= 180
  3. 20  PRINT "I WILL NOW SEPARATE ODD AND EVEN NUMBERS"
  4. 30 N = N +1
  5. 40 <UNKNOWN TOKEN> INT(N/2) = N/2<UNKNOWN TOKEN>
  6. 50  PRINT N" IS EVEN"
  7. 60 N = N +1
  8. 70 <UNKNOWN TOKEN>
  9. 80  PRINT N" IS ODD"
  10. 90  IF N <30  THEN 30
  11. 100  SPEED= 255